.DO ListDefs 

.LSTON 

.Paqe 

-F m 

>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Control ler Status Port 

> 

>>>>>>>>>>>>>>>>>>>>>>>> 



Status-Port 


.Equ 


$1F00 








CrcErrL 


.Equ 


$30 


; status 


bit 7 


: Crc Error { active Jo } 


WrtNvldL 


.Equ 


$40 


; status 


bit 6 


: Write Hot valid { active lo 


ServoRdy 


.Equ 


$20 


; status 


bit 5 


: Servo Ready { active hi > 


ServoErr 


.Equ 


$10 


: status 


bit 4 


: Servo Error { active hi } 


S'mask 


.Equ 


$0F 


:mask for status bits 0:3: state 


Norm_JState 


.Equ 


$02 


; norma ! 


end 


state for Read, Mr i te.ReadHdr 


NormFmtjState 


.Equ 


$0fl 


: norma 1 


end 


state for Format 


MoHdrJState 


.Equ 


$00 


: last state 


if no matching header found 


StartJState 


.Equ 


$00 


; beg inning state machine state 
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>>>>>>>>>>>>>>>>>>>>>>>> 



> Cons tan t De f i n i t i ons : h i see 1 1 aneous 

> 

>>>>>>>>>>>>>>>>>>>>>>>> 



Stack-Top 


.Equ 


$80 


; Register $7F + 1 


lnit_Pc 


.Equ 


$0c 


; Initial Pc setting after RESET 


fntL_Dflt 


.Equ 


*02 


; assume dr i ve i nter i eaved 1 : 1 


Map-Bflt 


.Equ 


*$0C 


;Map 5:1 onto 2: 1 as default 


RegLpT i mes 


.Equ 


2 


;Loop ttjuice ( 0's and 1's > 


RegCount 


.Equ 


128 


; Total number of r-egs z8 


RegUsed 


.Equ 


5 


;this test uses r4,r5,r6,r?,r8 


1 JOregUsed 


.Equ 


4 


; Ports 0,1,2,3 can't be tested here 


HiRegfidr 


.Equ 


RegCount 


-1 


RamS i ze 


.Equ 


2048 


; Physical length of 5116 < 2kx8 > 


HiRamfidr 


.Equ 


RamS i ze- 


1 


RamLpT i mes 


• Equ 


2 


; loop twice < 0's and 1's > 


EpromS i ze 


.Equ 


4096 




MaxEpromRddress 


.Equ 


EpromS ize - 1 


EpromS tar tfldr 


.Equ 


$0001 




MaxJCmnd-Types 


.Equ 


$02 


; currently only three types of cmnds 


CmndType 


.Equ 


$F0 


;mask for TVPE of command 


Cmnd_Len 


.Equ 


$0? 




Servo_Len 


.Equ 


$05 






.DO 


M_10MB 




H i flaxLog i ca i 


.Equ 


$00 


;highest user block = $04BFF 


IlidflaxLogical 


• Equ 


$4B 




LoilaxLogical 


Equ 


$FF 




HihaxCyl 


.Equ 


$02 


jhighest cylinder = $220 < 544 > 


LoflaxCyl 


.Equ 


$20 




MaxSeek 


.Equ 


$185 


; seeks longer than this are broken into 2 


M i d_£y I 


.Equ 


$101 


; middle of data area 


init_HiCyl 


.Equ 


$01 


j initial setting for data cylinder 



lnit_LoCyf 


.Equ 


$F9 


TstJrliCyl 


.Equ 


$02 


Tst_LoCyj 


.Equ 


$05 


TstJHead 


.Equ 


$00 


Tst-JSctr 


.Equ 


$00 


NbrSctrs 


.Equ 


19 


NbrHds 


.Equ 


2 


NbrTracks 


.Equ 


514 


HiSprO 


.Equ 


$00 


n i dSprQ 


.Equ 


$19 


LoSprO 


.Equ 


$55 


H i Spr 1 


.Equ 


$00 


n « dSpr 1 


.Equ 


$32 


LoSpr 1 


.Equ 


$flfl 


ParkCy I 


.Equ 


$0235 




.FIN 






.DO 


W_20MB 


HiMaxLogical 


.Equ 


$00 


il i dnaxLog i ca 1 


.Equ 


$98 


LoMaxLog i ca 1 


.Equ 


$4B 


H i naxCy 1 


.Equ 


$02 


LonaxCy f 


.Equ 


$20 


MaxSeek 


.Equ 


$185 


n t d JCy I 


.Equ 


$101 


mi t_H!ty 1 


.Equ 


$01 


im t_LoCy! 


.Equ 


$F9 


Tst_H i Cy I 


.Equ 


$02 


TstJLoCyl 


.Equ 


$05 


T_X 1 J— — _l 

TstJiead 


.Equ 


$00 


Tst—Sctr 


.Equ 


$00 


nbrbctrs 


.Equ 


38 


NbrHds 


.Equ 


2 


NbrTracks 


.Equ 


514 


HiSprO 


.Equ 


$00 


M i dSprO 


.Equ 


$32 


LoSprO 


.Equ 


$fifl 


HiS'prl 


.Equ 


$00 


IlidSprl 


.Equ 


$55 


LoSpr 1 


.Equ 


$54 


ParkCy I 


.Equ 


$0235 




.FIN 






.DO 


M_40NB 


HiMaxLogical 


.Equ 


$01 


MidflaxLogical 


.Equ 


$30 


LoilaxLog i ca I 


.Equ 


$E3 


H i MaxCy 1 


.Equ 


$04 


LoHaxty i 


.Equ 


$40 


MaxSeek 


.Equ 


$30fl 


fl i d JCy 1 


.Equ 


$202 


mi tJiiCyl 


.Equ 


$03 


InitJLoCyl 


Equ 


$F9 


Tst_HiCyl 


. Equ 


$04 


TstJLoCyl 


.Equ 


$0R 


Tst_Head 


.Equ 


$00 


T _-X rf"--. X™ 

TstJSctr 


.Equ 


$00 


NbrSctrs 


.Equ 


38 


fibrHds 


.Equ 


2 


NbrTracks 


.Equ 


luZo 


HiSprO 


.Equ 


$00 


MidSprO 


.Equ 


$65 


LoSprO 


.Equ 


$54 


Hi Spr 1 


.Equ 


$00 


MidSprl 


.Equ 


$Cfl 



;Cyl, Head, and sector of R/W test area 



; number of sectors = 19 
; number of heads = 2 
; number of tracks =514 
; logical block of SpK > 



; logical block of Spr( 1 > 



; cylinder to park heads at 



;highest user block = $09848 



;highest cylinder = $220 < 544 ') 

; seeks longer than this are broken into 2 
; middle of data area 
; initial setting for data cyl inder- 
jCyl^ Head, and sector of R/W test area 



; number of sectors = 38 
; number of heads = 2 
; number of tracks =514 
; logical block of SpK ) 



; logical block of SpK 1 ) 



; cylinder to park heads at 



;highest user block = $130E3 



;highest cylinder = $440 < 1088 > 

; seeks longer than this are broken into 2 

;middle of data area 

; initial setting for data cylinder 

;Cyl , Head,, and sector of R/W test area 



; number of sectors = 38 
; number of heads = 2 
; number of tracks = 1028 
; logical block of SpK > 



; logical block of SpK 1 > 



LoSpr 1 


.Equ 


$fi8 










t y ! i f lucf <.u pur is i leuua u v 




.FIN 






Spr Thresh 


.Equ 


3 ;this 


many CRC errors to be candidate for sparing 




Fni j 


$00 




RpadJOP 


. Equ 


$80 




Mai t 


Fni j 






Nil 


.Equ 


$80 


;Nil Ptr 


Used 




$40 








4190 


, -jpwf tl O ! UL-tS 1 ii , -*wiL. 1 I *Z 12- U^CUU I 5 


Spare 


.Equ 


$10 


; element is a true spare 


BadBlock 


.Equ 


$00 


;eiement is a bad block 


SprTb 1 -Type 


.Equ 


$08 


;type of element is spare table 


1 D_Type 


.Equ 


$04 


;type of element is ID block 


User_Type 


.Equ 


$02 


;type of element is User data block 






•pv 1 




Random 


.Equ 


$80 


; search cache by index 


TestBitMap 


.Equ 


$80 


; check bit map location for or 1 




Equ 


$40 


" *cr A *f n hi 4 iruin | 4 x 

, U U t IIIUL7 ! U S M U *- I W! 1 




Fni j 




3 n_ i cur u ui v iiiup 1 l.h_vi l i kjt i 










RdError ' 


.Equ 


$80 




C/riOf-l ij-,|Tir.|r. 

rjuijr vulf r 




•ijTTU 




RdSuccess 


.Equ 


$20 




RdNoHdrFnd 


.Equ 


$10 




nULrf K.CT P 


• Equ 


•puo 




nunLf roi 


_ 

. tqu 


4tftn 




RdHSruoErr 


.Equ 


$40 




WT CPr Or 


. Equ 


<fcs>n 

$€>U 




np opvucpr 


. Equ 


<fc4fi 






. Equ 


<fc9n 




UrNoHdrFnd 


.Equ 


$10 




i re iLrror 


. Equ 






Fm t Qk-i ir*f- 
r hi wf vvLi i 




$40 




FmtSuccess 


.Equ 


$20 




Hax_ 1 n ter-Leave 


.Equ 


$05 




Cmnd_Pend i ng 


-Equ 


$80 


jilaitJCmnd was called from a command 


IBsq 


.Equ 


$40 


;set BSY 


MultiUr 


.Equ 


$20 


; curren t opera t i on is Mu 1 1 i B 1 ockMr i te 


FrstJSprTbi 


Equ 


$80 


;First spare table has been found 



;> Data Exception Error Codes 



Error 


.Equ 


$80 




Ex JJndeterm i ned 


.Equ 


$00 


; Undetermined error < recovery off? > 


ExJSprBlock 


.Equ 


$02 


; Spare this block! 


Ex_BadB 1 ock 


.Equ 


$04 


;make this block a bad block 


Ex_BeadErr 


.Equ 


$06 


;non-catastophic error during read 


Ex_HdrBad 


.Equ 


$08 


;make this block bad because no header 



Ex_Hdrspr 



. Equ $ofi 



; spare this block because no header 



Ex_JCase_Max 


.Equ 


$Ofi 


;> Interface Responses 




Read-Response 


• Equ 


$02 


Wr -Response 


.Equ 


$03 


WrUer_Response 


.Equ 


$04 


End_J4rJResponse 


.Equ 


$05 


D_R_i D_fiesponse 


.Equ 


$02 


Hd_Stat_Resp 


.Equ 


$03 


RdJSStat_Resp 


.Equ 


$04 


Sd_SJC_Respone 


.Equ 


$05 


SjSeekJResponse 


.Equ 


$06 


S_Rs tr -Response 


.Equ 


$07 


Sei_Rcvr JResp 


.Equ 


$08 


S_Park_Respone 


.Equ 


$0fl 


D_Read_Response 


.Equ 


$0B 


D_RdHdr_Resp 


.Equ 


$0C 


D_Wr i te JResp 


.Equ 


$0D 


ot_Hap_nesponse 


.Equ 


$0E 


D_R_Spr_Resp 


.Equ 


$0F 


WrJSpr JResp 


. hqu 


$10 


Fmt_Response 


.Equ 


$11 


1 _Spr_Response 


.Equ 


$12 


RdJRbrt JResp 


.Equ 


$13 


RsiSrvo_Resp 


.Equ 


$14 


DJSean_Eesponse 


.Equ 


$15 


Sys_Rd_Resp 


.Equ 


$22 


Sys_Wr_Resp 


.Equ 


$23 


Sys_WrEx_jResp 


.Equ 


$R3 


3ys_WrEnd_Besp 


.Equ 


$27 


Sys_WrVer_Resp 


.Equ 


$24 


Prof i ie 


.Equ 


$00 


Uidget 


.Equ 


$01 


Pro_LogjOffset 


.Equ 


$01 


Sy s JLog_0 f fse t 


.Equ 


$03 


f ncJSprCnt 


.Equ 


$00 


lnc_BadCnt 


.Equ 


$01 


Dec_BadCnt 


.Equ 


$02 



; maximum case values 



; Interface Response to a Read command 
interface Response to a Write command 
; Interface Response to a Write Uer ify command 
; Interface response after receiving wr data 



; Device Interface Type is Profile 
; Device Interface Type is Uidget 

; offset from start of command to blocknumber 



;> System Status Definitions 



;>. Byte 

BadJ55 

UrBuf JDR 

Stat_Rd_£rr 

3tat_No_Hdr 

StatJSrvo 

Op_Fai led 



Equ 


$80 


; Status: 


Other than 55 response from host 


Equ 


$40 


; Status: 


Write Buffer OverFlow 


Equ 


$08 


; Status : 


Read Error 


Equ 


$04 


; Status: 


No Header Found 


Equ 


$02 


; Status: 


Unrecoverable Servo Error 


Equ 


$01 


; Status: 


Operation Fa i led 



;> Byte 1 
SprB?k_Hard 
SprBlkJJarn 
StatJSIfTst 

StatJSpare 

StatJSeek 

Stat_flbort 



Equ 


$40 


; Status: 


Mo room left in spare table 


Equ 


$20 


; Status: 


5 or ! ess spare b 1 ocks ava i 1 ab ! e 


Equ 


$08 


; Status : 


Abort caused by self test fai lure 


Equ 


$04 


; Status: 


Sparing has occured 


Equ 


$02 


; Status : 


Seek to wrong track 


Equ 


$01 


; Status: 


Control ler aborted 



:> Bqte2 



Power-Reset 


.Equ 


$80 


; Midget was power reset 


i i lego! -Block 


.Equ 


$40 


; Status: Block number out of 


;> Byte3 








EccStat 


.Equ 


$80 


;read error detected by ecc 


CrcStat 


.Equ 


$40 


;read error detected by crc 


Hdr_Mist1atch 


.Equ 


$20 


■ 4" i nifli"ii i + inn i 4" i v\i*t f .—.in. hvcw-nrlaKi 
ji ■- 1 hhsuu ■- wu i *_ i r ty i kjt t icuuci 


;> Bank Switch Registers Defs 




BankReg 


.Equ 


$1800 


t UUUI CSS Ul HI 91 UUl IPi U I l 


i »H 
Leu 


. Equ 


■f louu 




LedJIask 


.Equ 


$FE 


j mask for Led bit 


KcjniDanKU 


. equ 


3j> iyuu 


, aooress ot Tirsx nam— DariK dix. 


RamQ 


.Equ 


$0 


, onset ot ram oanK zero 


Dnn 1 
rlUIII I 


.Equ 


$1 




Ram2 


.Equ 


$2 




Ram3 


.Equ 


$3 




RomBankO 


.Equ 


$1E00 




RomBank2 


. Equ 


$1000 




EpromO 


.Equ 


$0 




Eprom 1 


.Equ 


$1 




Eprom2 


.Equ 


$2 




EpromS 


.Equ 


$3 




Eprom4 


.Equ 


$4 
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; >>>>>>>>>>>> 


>>>>>>>>> 


>>> 




j > 

; > Servo 


Def ini tions 




;>>>>>>>>>>>>>>>>>>>>>>>> 




SJCmnd-Byte 


.Equ 


$00 


; Servo Command Byte 


S_Diff_Byte 


.Equ 


$01 


; Servo Lo D i f f erence Byte 


S_JDff_Byte 


.Equ 


$02 


; Servo Offset Byte 


S^StatJByte 


.Equ 


$03 


; Servo Status Byte 



; > BVTE 

ReadS tatus 

Offset 

Diagnostic 

DataRecai 

FrmtRecal 

Access 

Access-Offset 
Home 

Hd-BirJ^ev 
Hd_Dir_Frwd 

;> Bits 0: 1 

;> BVTE 1 

; > BVTE 2 

0ffJDir_Rev 



Equ Command, Direction, and Hi Difference Byte 



Equ 
Equ 
Equ 
Equ 
Equ 
Equ 
Equ 
Equ 

Equ 
Equ 

Equ 

. Equ 

Equ 

Equ 



$00 
$10 
$20 
$40 
$70 
$80 
$90 
$C0 

$00 
$04 



; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 
; Servo Command: 



Read Status 

Offset, Track Following 
Diagnostic- 
Recalibrate heads, Data 
Recalibrate hedas. Format 
Recess only 
Seek with Offset 
Home the heads 



; Direct ion: Reverse 
;Direction: Forward 



Magnitude: Hi Difference 
Magn i tude : Lo D i f f erence 
Offset Byte 

$00 ; Offset Direction Reverse 



Of f_Bir_Frwd 


.Equ 


$80 


; Offset Direction Forward 


Off_fluto 


.Equ 


$40 


;fluto-0ffset On 


Ld_Of f_Ual 


.Equ 


$20 


;Load Offset Ualue from DflC on Servo 


;> Off_Ua! 


.Equ 


$1F 


; 5-bit value Loaded/Stored into DflC 


;> BVTE 3 


.Equ 


Status Byte 


S_Rate_19_2 


.Equ 


$00 


; Servo /Control ler baud rate = 19.2 


S_Rate_57J5 


.Equ 


$80 


; Servo /Contro I 1 er baud rate =57.6 


PwrJOn_Reset 


.Equ 


$40 


; Servo Power-On Reset 


S_Stat_0 


.Equ 


$00 


; Servo Status 


SJ3tat_1 


.Equ 


$01 


; Servo Status 1 


SJStat_2 


.Equ 


$02 


; Servo Status 2 


S_£tatJ3 


.Equ 


$03 


; Servo Status 3 


S_Stat_4 


.Equ 


$04 


; Servo Status 4 


o (.U I %J 




$05 


; Servo Status 5 


8_JStat_6 


.Equ 


$06 


; Servo Status 6 


S_Stat_? 


.Equ 


$07 


; Servo Status 7 


SJStatJB 


.Equ 


$08 


; Servo Status 8 


S_Norm_Status 


.Equ 


S_Stat_ 


1 ; Norma I Servo Status 



J >>>>>>>>> >>>>>>>>>>>>>>> 

; > Cons tan t De f i n i t i ons : Excep t i on S tu f f 

;>>>>>>>>>>>>>>>>>>>>>>>> 



flpl_fick 


.Equ 


$55 Acknowledge from Host 


Ini t_Response 


.Equ 


$01 ; Control ler Ready for new command 


Free_Proc 


.Equ 


$69 ;Host willing to give up the bus 


flpl_Excpt 


.Equ 


$00 


; flpple_ Inter face 


ChkB_J1ismatch 


.Equ 


$00 


; Check Byte Mismatch 


BadJCmnd 


.Equ 


$01 


; ! i legal Command 


Cmnd_Excpt 


.Equ 


$01 


; Command_Dr i ver 


StrtJCmnd 


.Equ 


$00 


; StartJCommand 


LBIk_Bounds 


.Equ 


$02 


; Logical Block out-of-bounds 


S_Rst_fibort 


.Equ 


$03 


; Servo Reset Abort 


SerrJIotReady 


Equ 


$00 


; abort because N0K ServoRdy > OR ServoErr 


Coram JErr 


.Equ 


$01 


; abort because communication error 


S_Store 


.Equ 


$00 


;comm error in Servo Store 


S_Load 


.Equ 


$01 


;comm error in Servo Load 


RdBlk_flbort 


-Equ 


$04 


; abort in ReadBiock 


RdHdrjRbort 


.Equ 


$05 


; abort in ReadHeader 


WrBlk_fibort 


.Equ 


$06 


; abort i n I4r i teB I ock 


FmtBlk_flbort 


.Equ 


$07 


; abort in Formats lock 


Bad-State 


.Equ 


$00 


; abort caused by illegal state machine state 


FmtTrk_flbort 


.Equ 


$08 


; abort in Forma tTrack 


FmtTrk_PosErr 


.Equ 


$00 


; abort because unable to position heads 


Spareflbort 


.Equ 


$09 


; abort while trying to deal with spare table 


NoSpace 


.Equ 


$00 


; abort was caused by request for space 


Srvo_R_flbort 


.Equ 


$0R 


; abort while attempting Servo Recovery 


OvrLp-fibort 


.Equ 


$0B 


; abort whi ie attempting overlapped seek 



Rd-jCmn_Rbort 


.Equ 


$0C 


; abort while executing system read 


Servo -Dead 


.Equ 


$00 


; aborted because of servo failure 


SeekJRbort 


.Equ 


$00 


; abort while executing a seek 


Wr_Cmn_flbort 


.Equ 


$0E 


; abort wh i 1 e execut i ng Mr i te -Common 


BadJPassUord 


.Equ 


$0F 


j command string had wrond password 


Bad_Params 


.Equ 


$10 


; command had illegal parameters 


SprCnt_flbort 


.Equ 


$11 


; illegal spare count command 


HostJOvrFlow 


.Equ 


$12 


;Host sent too much data! 




.Page 






;>>>>>>>>>>>>>>>>>>>>>>>> 




; > Constant 

• \ 


Bef ini tions: 


External Eprom Stuff 


;>>>>>>>>>>>>>>>>>>>>>>>> 




Pr-n Piwvfc 

1 1 Willi 


.Equ 


02 




D i agJDmnds 


.Equ 


19 




Sys_Cmnds 


.Equ 


02 
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;>>>>>>>>>>>>>>> 

- •j. 


>>>>>>>; 


-> 




; > Constant 

- s 


Def ini tions: 


External Ram Stuff 


t 

;>>>>>>>>>>>>>>> 


>>>>>>>: 


>> 






.ORG 


$1000 




ReadRrray : 








RSctrGap: 


.Block 


t 10 




RHdrGap: 


.BiocK 


OJ 




RHeader: 


.Block 


0,6 




RDataGap : 


.Block 


0,7 




ROummy: 


.Block 


0,1 




RBufferl: 


.Block 


0,532 


RBuflCre: 


.Block 


0,2 




RBuf 1Ecc: 


.Block 


0,5 




REndGap : 


.Block 


0, 1 




RBuf 1Pai : 


.Block 


0,4 




BlocklD 


.Equ 


512 ; offset of control ler useable space 


Statusflrray 


.Equ 


RBufferl - 4 




.ORG 


$1000 





ReadHdrfirray : 



RHSctrGap: 


.Block 


0, 10 


RHHdrGap: 


.BlocK 


0,2 


RHHeader: 


.Block 


0,6 


RHDataGap: 


.Block 


0,6 


RHDummy : 


.Block 


0,1 


RHBuffeM: 


.Block 


0,532 


RHBuf 1Crc: 


Block 


0,2 


RHBuf 1Ecc: 


.Block 


0,6 


RHEndGap: 


.Block 


0,1 


RHBuf IPw: 


.Block 


0,4 



RdH_JStat_flrray .Equ RHHeader - 4 



ORG $1000 



Mr i tefirray : 
MSctrGap: 
UHdrGap: 
WHeader: 
WDataGap : 
WDataSync : 
WBufferl 
UBuflCrc: 
UBuflEcc: 
MEndGap : 
MBuf1Pw>: 



Forma t Array: 
FSctrGap : 
FHdrGap: 
FHdr-Sync: 
FHeader : 
FDataGap : 
FDataSync : 
FBufferl 
FBuf ICrc : 
FBuflEcc: 
FEndGap : 

WBikFence: 
Cmnd_Ptr 

Buf 2firray : 

Bu f Dummy : 

Buffer2~ 

Buf2Crc: 

Buf2Ecc: 

But"2P«»2: 



.Block 
BlocK 
Block 
.Block 
Block 
Block 
Block 
.Block 
Block 
Block 



Block 
BlocK 
Block 
Block 
Block 
Block 
Block 
Block 
Block 
Block 



0, 10 

0,1 

0,6 

0, 14 

0,2 

0,532 

0,2 

0,5 

0,2 

0,4 



ORG $1000 + $20 



0, 10 

0, 16 

0,2 

0,5 

0, 14 

0,2 

0,532 

0.2 

0,6 

0,2 



5 lock 0,4 ; fence to check for host write overruns 
Equ WBufferl-7 jhost passes command here! 



Block 0,1 

Block 0,532 

Block 0,2 

Block 0,6 

Block 0,4 



CStatusO: 
CStatus! 
CStatus2: 
CStatus3: 
CStatus4: 
CStatusS: 
CStatusS: 
End_£Status 

Logical Block 

SrvoCmndBuf : 

S_Cmnd_Len 

SStatusO: 

SpareRrray : 

SparePwl : 

SpareTmStmp: 

FmtOffset: 

FmtlntrL: 

SegPtrflrray: 

SprCount : 



.Block 


0,4 


; Con tro 1 1 er S ta tus 


.Block 


0,4 




.Block 


0,4 




.Block 


0,4 


;Last Requested Block Number 


.Block 


0,4 


;Last Host Command: wordO 


.Block 


0,4 


;Last Host Command: wordl 


.Block 


0,4 




.Equ 


.PC. 




Equ 


CStatus3 


.Block 


0,5 


; Servo Command Buffer 


.Equ 


5 


; Length of ServoCmndBuf fer 


.Block 


0,5 


; Servo Status 


Block 


0,4 




Block 


0,4 




Block 


0,1 




Block 


0. 1 




Block 


0, 128 




Block 


0,1 





BadCount : 
SpareBi tMap: 
SpareTab i e : 
nap_Table: 
SpareCheck: 
SparePw2: 


.Block 
.Block 
.Block 
.Block 
.Block 
.Block 


0,1 
0, 10 
0,304 

0,NbrSctrs 

0.2 

0,4 


SpareLength 
SpareEnd : 


.Equ 
.Block 


. PC . -Spareflrray 

0, B I ockLength-SpareLength 


Rbort_Stat: 


.Block 


0, 16 ; last abort info 


CacheLength 
CachStat: 
Cacheflrray : 


.Equ 

.Block 

.Block 


NbrSctrs+1 
0, CacheLength 
0, 4*CacheLength 


StackPtr: 
Heap 


.Block 
.Equ 


0,2 
.PC. 


StartB lock 
BIkOffset 
B Ik index 


.Equ 
.Equ 
.Equ 


Heap 

StartBlock+3 
Blk0ffset+1 


PBIock 
TLB I ock 
Cur_THS 


.Equ 
. Equ 
.Equ 


Heap 

PB 1 oek+3 
TLBlock+3 


TopOfStack 


.Equ 
.Page 


$17FF ;top of external stack 



>>>>>>>>>>>>■>>>>>>>>>>>>>>>>> 
> 

> Interrupt Stuff 



;>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 



Di»t_PosHeads 


-Equ 


$00 








DmtjCOQ 


.Equ 


$01 


; Command 


$00 


DmtJCQI 


Equ 


$02 


; Command 


$01 


DmtJC02 


.Equ 


$03 


; Command 


$02 


DmtJteadBlock 


.Equ 


$04 


; Rout 


ne 


ReadBSock 


DmtJteadHdr 


.Equ 


$05 


;Rout 


ne 


ReadHdr 


DmtJ4riteBlock 


.Equ 


$06 


;Ftout 


ne 


Wri teBlock 


Dmt_FormatB I ock 


.Equ 


$07 


;Rout 


ne 


Forma tB lock 


Dmt_FmtTrack 


.Equ 


$08 


;Rout 


ne 


FormatTrack 


Dmt_LctSctr 


.Equ 


$09 


;Rout 


ne 


LocateSector 


Dmt_Recal 


.Equ 


$0fl 


;Rout 


ne 


Restore 


Drot_MU 


.Equ 


$06 


;Rout 


ne 


I4r i teUer i f y 


Dmt_S_R 


-Equ 


$0C 


;Rout 


ne 


SerMoRecovery 


DmtjQverLap 


.Equ 


$0D 


;Rout 


ne 


OverLappedSeek 


Dm t_fid_JComnion 


.Equ 


$0E 


;Rout 


ne 


ReadJCommon 


DmtJSeek 


.Equ 


$0F 


, Rout 


ne 


Seek 


DmtJServoOk 


.Equ 


$10 


;Rout 


ne 


SeruoOk 


DmtJ4r_Coinmon 


.Equ 


$11 


;Rout 


ne 


Mr i te JCommon 


Dmt_TrkCnt 


.Equ 


$12 


j Rout 


ne 


TrackCount 


Dmt_J>_£mnd 


.Equ 


$13 


;Rout 


ne 


ServoCmnd 


Dmt^S_£tat 


.Equ 


$14 


;Rout 


ne 


ServoS tatus 


DmtJSJStor-e 




$15 


;Rout 


ne 


ServoStore 


Diat_S_Load 


.Equ 


$16 


;Rout 


ne 


ServoLoad 


Dmt_Ual 


.Equ 


500 


; DeadManT 


mer count 



';> IRQ Definitions 



T i mer 1 


.Equ 


$20 


;Timer 1 interrupt 


T i merO 


.Equ 


$10 


; Timer interrupt 


Serial _Out 


.Equ 


$10 


;Sio transmitter ready 


Serial—in 


.Equ 


$08 


;Sio receiver ready 


lrq_Sector 


.Equ 


$04 


; Negative edge on sector mark 


!rq_ Index 


.Equ 


$01 


; Negative edge on index mark 



. LSTOFF 



